MacFormat 1996 January/macformat-033.iso/mac/Education/Modern Media/olisDemo/Shared.DIR/02008_Shared Cast scripts.ls

Text File | 1995-04-13 | 4.3 KB | 192 lines

on initBudMeterCast
  global meterLevel, moduleList, fileSep
  if not meterLevel or (meterLevel < 1) or (meterLevel > 3) then
    set meterLevel to 1
  end if
  initSharedCast()
  if not moduleList then
    budMeterSetup()
  end if
  when keyDown then setVolume()
end

on getBudPath budHotSpotNum
  setAnimationCursor()
  if budHotSpotNum = 1 then
    return "RomA"
  else
    if budHotSpotNum = 2 then
      return "RomB"
    else
      if budHotSpotNum = 3 then
        return "RomC"
      else
        if budHotSpotNum = 4 then
          return "RaveA"
        else
          if budHotSpotNum = 5 then
            return "RaveB"
          else
            if budHotSpotNum = 6 then
              return "RaveC"
            else
              if budHotSpotNum = 7 then
                return "RantA"
              else
                if budHotSpotNum = 8 then
                  return "RantB"
                else
                  if budHotSpotNum = 9 then
                    return "RantC"
                  else
                    resetAnimationCursor()
                    alert("PROGRAMMER: An invalid bud value" && budHotSpotNum && "was passed to getBudPath!  Use 1 through 9.")
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on findSounds
  set myText to EMPTY
  cursor(4)
  repeat with x = 1 to the number of castMembers
    if (x mod 250) = 0 then
      put x
    end if
    if the castType of cast x <> #inactive then
      if the scriptText of cast x <> EMPTY then
        set myText to the scriptText of cast x
        findSoundName(myText)
      end if
    end if
  end repeat
  cursor(-1)
end

on findSoundName myText
  repeat with n = 1 to the number of lines in myText
    if line n of myText contains "playfile" then
      put line n of myText
    end if
  end repeat
end

on findPurges
  cursor(4)
  repeat with x = 1 to the number of castMembers
    if (x mod 250) = 0 then
      put x
    end if
    if the purgePriority of cast x <> 3 then
      set myPurge to the purgePriority of cast x
      if myPurge = 0 then
        set purgeLevel to "Never"
      else
        if myPurge = 1 then
          set purgeLevel to "Last"
        else
          if myPurge = 2 then
            set purgeLevel to "Second"
          end if
        end if
      end if
      put "Cast" && x & ":" && purgeLevel
    end if
  end repeat
  cursor(-1)
end

on findAllInks
  findInkds(1, the lastFrame)
end

on findInks startFrame, endFrame
  cursor(4)
  put "Starting at frame" && startFrame
  repeat with n = 1 to 48
    set the visible of sprite n to 0
  end repeat
  repeat with x = startFrame to endFrame
    if (x mod 250) = 0 then
      put "Working at frame" && x
    end if
    go(x)
    repeat with n = 1 to 48
      if (the ink of sprite n <> 8) and (the ink of sprite n <> 0) then
        put "Frame" && x && "Sprite" && n & ":" && the ink of sprite n
      end if
    end repeat
  end repeat
  repeat with n = 1 to 48
    set the visible of sprite n to 1
  end repeat
  put "Finished at frame" && endFrame
  cursor(-1)
end

on vizzy
  repeat with n = 1 to 48
    set the visible of sprite n to 1
  end repeat
end

on findcast myCast
  cursor(4)
  repeat with n = 1 to 48
    set the visible of sprite n to 0
  end repeat
  repeat with x = 1 to the lastFrame
    if (x mod 250) = 0 then
      put "Working at frame" && x
    end if
    go(x)
    repeat with n = 1 to 48
      if the castNum of sprite n = myCast then
        put "Frame" && x && "Sprite" && n & ":" && the castNum of sprite n
      end if
    end repeat
  end repeat
  repeat with n = 1 to 48
    set the visible of sprite n to 1
  end repeat
  cursor(-1)
end

on findScript startFrame, myScriptNum
  cursor(4)
  repeat with x = startFrame to the lastFrame
    if (x mod 250) = 0 then
      put x
    end if
    go(x)
    if the frameScript = myScriptNum then
      put "Cast" && x & ":" && myScriptNum
    end if
  end repeat
  cursor(-1)
end

on countletters myField
  cursor(4)
  set myString to the text of cast myField
  repeat with x = 1 to the number of words in myString
    if length(word x of myString) > 8 then
      put word x of myString
    end if
  end repeat
  cursor(-1)
end

on ReturnTo5thAve fromModuleLabel
  global fileSep
  sound stop 1
  sound playFile 2, the pathName & "Daudio" & fileSep & "bum30.Aif"
  go(1, "D5thAve")
end